home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / bbozu7.dir / 00321_Script_éËǝè„ǐÇÈ < prev    next >
Text File  |  1995-11-13  |  957b  |  43 lines
  1. global Tsp,Hsp,Bsp
  2.  
  3. on HandUpT T1,T2
  4.   set HanUpT = [1, 2, 3, 2, 1]
  5.   preLoadCast 1 + 400, 3 + 400
  6.   repeat with i in HanUpT
  7.     set the castNum of sprite Tsp = i + 400
  8.     updateStage
  9.     wait T1
  10.   end repeat
  11.   wait T2
  12.   set the castNum of sprite Tsp = 1 + 400
  13.   updateStage
  14.   unLoadCast 1 + 400, 3 + 400
  15. end 
  16.  
  17. on HandUpH T1,T2
  18.   set HanUpH = [41, 42, 43, 42, 41]
  19.   preLoadCast 41 + 400, 43 + 400
  20.   repeat with i in HanUpH
  21.     set the castNum of sprite Hsp = i + 400
  22.     updateStage
  23.     wait T1
  24.   end repeat
  25.   wait T2
  26.   set the castNum of sprite Hsp = 41 + 400
  27.   updateStage
  28.   unLoadCast 41 + 400, 43 + 400
  29. end 
  30.  
  31. on HandUpB T1,T2
  32.   set HanUpB = [81, 82, 83, 82, 81]
  33.   preLoadCast 81 + 400, 83 + 400
  34.   repeat with i in HanUpB
  35.     set the castNum of sprite Bsp = i + 400
  36.     updateStage
  37.     wait T1
  38.   end repeat
  39.   wait T2
  40.   set the castNum of sprite Bsp = 81 + 400
  41.   updateStage
  42.   unLoadCast 81 + 400, 83 + 400
  43. end